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SCOPE--2868 


1 REM 2868 TELESCOPE SELECTOR 


5 LET g=398: LET Ai=@: LET Si 
=g 
18 PRINT AT 28,8;"Name & Model 
of scope:": INPUT N$: CLS 
15 INPUT "size of aperture? "; 
A: GO SUB 348 
28 IF Ai=@ THEN LET A1=(INT ( 
188% (A/25.4)))/1 8B 
25 INPUT “size of secondary mi 
rror? *;S: GO SUB 38% 
38 IF Si= THEN LET S1i=CINT ( 
1B6x(S/25.4)))/188 
35 INPUT "focal ratio? ";R: LE 
T F=INT (.S+(A#x#R)): IF R<>@ THEN 
GO TO 5% 
49 INPUT “focal length OR tube 
length? ";F: GO SUB 388 
58 REM light-grasp 
55 LET LG=INT ((A1x3.54)2) 
Gë LET L=INT (((€(A/2)°2*PI)-(¢¢ 
S/2)°2*P1))/59. 264) 
78 REM % obstruction 
88 LET P=(INT (1888x(S/A)))/18 
94 REM magnitude 
188 LET min=(INT (18x(8.8+5xLN 
A1*.434)))/18 
118 LET max=(INT (18*(9.9+5*LN 
A1*.434)))/1G 
128 REM tube/focal len & f/no. 
138 LET T=(INT (1B6x((F/25.4)/1 
2)))/18B 
14@ LET FN=(INT (.S+C18x(F/A))) 
1/18 
15@ REM magnification 
16@ LET PL=INT A1*55 
178 LET PM=INT A1x25 
188 LET PS=INT (.5+(A1x3.2)) 
19@ LET EL=INT (F/PL) 
288 LET EM=INT (F/PM) 
21@ LET ES=INT (F/PS) 


22% REM resolution 

225 LET DL=(INT (168Gx4.56/(A/2 
5.4)))/ 1588 

238 LET RE=(INT (1888x((C178/FN 
)-(FEN/18+4))xFN)/A))/ 1888 

235 FOR i=@ TO 31: PRINT AT @,i 
sCHR$ 34;AT 19,i; CHR$ 34: NEXT i 

248 PRINT AT 1, 8; 'APERTURE: "; 
1;" inches"; TAB 24;A; "mm": PRINT 

"Secondary: ";51;" inches"; TAB 
24:S;"mm" 

245 PRINT "Light-grasp: ";LG;" 
X eye": PRINT "Obstruction: ";P; 
W Au 

258 PRINT "Free Objective Area= 

";L;" X eye" 

255 PRINT "Magnitude Range:"; TA 
B 19;"min ";min: PRINT TAB 19;"m 
ax ";max 

268 PRINT "Unfolded Tube Length 
: Ts ft ": PRINT “Focal lengt 
h: "sF;"mm": PRINT "Focal Ratio: 

f/";FN 

265 PRINT “Magnification Limits 


«ga PRINT TAB 23"Maxs "3 PL5"X°sT 


AB 15;"eyepiece: ";EL;"mm" 

278 PRINT TAB 2;"Avg: ";PM;"X"; 
TAB 15; "eyepiece: "; EM; "mm" 

275 PRINT TAB 2;"Min: ";PS;"X"; 
TAB 15; "eyepiece: ";ES;"mm" 

288 PRINT "Dawes' Limit: ";DL;" 
Arc sec": PRINT "Resolution Pro 
b: ";RE;" Are sec" 

285 PRINT AT 18, 8;"For: ";N$ 
29% INPUT "Copy? Y/N ";A$: IF a 
$<>"n" THEN COPY 

294 STOP 

295 SAVE "scope" LINE 1: SAVE " 
scope" LINE 1: STOP 

368 LET g=gti@: INPUT "was last 
value in inches? ";A$: IF A$«»" 
n* THEN GO TO g 

318 RETURN 

488 LET A1=A: LET A=INT (.5+(AXx 
25.4)): RETURN 

418 LET S1=5: LET S=INT (.5+(S* 
25.4)): RETURN 

428 LET F=INT (.5+(F*25.4)): RE 
TURN 
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